home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / crtex / ex5.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  564 b   |  22 lines
  1. Program Example5;
  2. uses Crt;
  3.  
  4. { Program to demonstrate the Window function. }
  5.  
  6. begin
  7.   ClrScr;
  8.   WriteLn('Creating a window from 30,10 to 50,20');
  9.   Window(30,10,50,20);
  10.   WriteLn('We are now writing in this small window we just created, we '+
  11.           'can''t get outside it when writing long lines like this one');
  12.   Write('Press any key to clear the window');
  13.   ReadKey;
  14.   ClrScr;
  15.   Write('The window is cleared, press any key to restore to fullscreen');
  16.   ReadKey;
  17. {Full Screen is 80x25}  
  18.   Window(1,1,80,25);
  19.   Clrscr;
  20.   Writeln('Back in Full Screen');
  21. end.
  22.